home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / findfile.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  6KB  |  265 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "findfile.d"
  17. #if defined(_WIN32) || defined(WIN32) 
  18. #include <io.h> 
  19. #define FINDSTRUCT _finddata_t 
  20. #ifndef _WIN32 
  21. #define _WIN32 
  22. #endif 
  23. #else 
  24. #include <dos.h> 
  25. #include <sys/types.h> 
  26. #include <sys/stat.h> 
  27. #define FINDSTRUCT find_t 
  28. #endif 
  29.  
  30.  
  31. #include "findfile.h" 
  32.  
  33. #define    CLASS    FindFile_c
  34. #define    ivType    FindFile_iv_t
  35.  
  36. #include "generics.h"
  37.  
  38. object    FindFile_c;
  39.  
  40.  
  41. #line 42 "findfile.c"
  42. typedef struct  _FindFile_iv_t  {
  43.     object iFileName;
  44.     unsigned iAttributes;
  45.     struct FINDSTRUCT iData;
  46.     long iHandle;
  47.     int iFirst;
  48.     int iEnd;
  49. }    FindFile_iv_t;
  50.  
  51.  
  52.  
  53. #line 42 "findfile.d"
  54. cmeth objrtn FindFile_cm_gNewFindFile(object self, char *name, int attr)
  55. { 
  56.     object obj = oSuper(FindFile_c, gNew, self)(self); 
  57.     ivType *iv = ivPtr(obj); 
  58.     iv->iFileName = gNewWithStr(String, name); 
  59.     iv->iAttributes = attr; 
  60.     iv->iHandle = -1L; 
  61.     return obj; 
  62. } 
  63.  
  64. imeth objrtn FindFile_im_gDispose(object self)
  65. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  66. #ifdef _WIN32 
  67.         if (iv->iHandle != -1L) 
  68.         _findclose(iv->iHandle); 
  69. #endif 
  70.         gDispose(iv->iFileName); 
  71.     return oSuper(FindFile_c, gDispose, self)(self); 
  72. } 
  73.  
  74. imeth objrtn FindFile_im_gGCDispose(object self)
  75. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  76. #ifdef _WIN32 
  77.         if (iv->iHandle != -1L) 
  78.         _findclose(iv->iHandle); 
  79. #else 
  80.         USE(iv->iHandle); 
  81. #endif 
  82.         return oSuper(FindFile_c, gDispose, self)(self); 
  83. } 
  84.  
  85. #define SET(a, b) ((a) & (b)) 
  86.  
  87. static int valid(ivType *iv) 
  88. { 
  89.     if (SET(iv->iData.attrib, _A_SUBDIR)) { 
  90.         if (!SET(iv->iAttributes, FF_DIRECTORY)) 
  91.             return 0; 
  92.     } else 
  93.         if (!SET(iv->iAttributes, FF_FILE)) 
  94.         return 0; 
  95.     if (SET(iv->iData.attrib, _A_RDONLY)) { 
  96.         if (!SET(iv->iAttributes, FF_READONLY)) 
  97.             return 0; 
  98.     } else 
  99.         if (!SET(iv->iAttributes, FF_READWRITE)) 
  100.         return 0; 
  101.     if (SET(iv->iData.attrib, _A_HIDDEN) && !SET(iv->iAttributes, FF_HIDDEN)) 
  102.         return 0; 
  103.     if (SET(iv->iData.attrib, _A_SYSTEM) && !SET(iv->iAttributes, FF_SYSTEM)) 
  104.         return 0; 
  105.     if (SET(iv->iAttributes, FF_ARCHIVE_ONLY) && !SET(iv->iData.attrib, _A_ARCH)) 
  106.         return 0; 
  107.     return 1; 
  108. } 
  109.  
  110. imeth char * FindFile_im_gNextFile(object self)
  111. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  112. #ifdef _WIN32 
  113.         int r; 
  114.  
  115.     if (iv->iEnd) 
  116.         return NULL; 
  117.     if (!iv->iFirst) { 
  118.         iv->iHandle = _findfirst(gStringValue(iv->iFileName), &iv->iData); 
  119.         iv->iFirst = 1; 
  120.         r = iv->iHandle < 0L ? 1 : 0; 
  121.     } else 
  122.         r = _findnext(iv->iHandle, &iv->iData); 
  123.     while (!r && !valid(iv)) 
  124.         r = _findnext(iv->iHandle, &iv->iData); 
  125.     if (r) { 
  126.         iv->iEnd = 1; 
  127.         if (iv->iHandle != -1L) { 
  128.             _findclose(iv->iHandle); 
  129.             iv->iHandle = -1; 
  130.         } 
  131.         return NULL; 
  132.     } else 
  133.         return iv->iData.name; 
  134. #else 
  135.         unsigned r; 
  136.  
  137.     if (iv->iEnd) 
  138.         return NULL; 
  139.     if (!iv->iFirst) { 
  140.         r = _dos_findfirst(gStringValue(iv->iFileName), 
  141.             _A_ARCH | _A_HIDDEN | _A_NORMAL | _A_RDONLY | _A_SUBDIR | _A_SYSTEM, 
  142.             &iv->iData); 
  143.         iv->iFirst = 1; 
  144.     } else 
  145.         r = _dos_findnext(&iv->iData); 
  146.     while (!r && !valid(iv)) 
  147.         r = _dos_findnext(&iv->iData); 
  148.     if (r) { 
  149.         iv->iEnd = 1; 
  150.         return NULL; 
  151.     } else 
  152.         return iv->iData.name; 
  153. #endif 
  154.     } 
  155.  
  156. imeth long FindFile_im_gLength(object self)
  157. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  158.     return iv->iFirst && !iv->iEnd ? iv->iData.size : -1L; 
  159. } 
  160.  
  161. imeth char * FindFile_im_gName(object self)
  162. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  163.     return iv->iFirst && !iv->iEnd ? iv->iData.name : NULL; 
  164. } 
  165.  
  166. #ifndef _WIN32 
  167. static void getpath(char *path, char *search, char *name) 
  168. { 
  169.     char *p, *last; 
  170.  
  171.     strcpy(path, search); 
  172.     for (last=path-1, p=path ; *p ; ++p) 
  173.         if (*p == ':' || *p == '/' || *p == '\\') 
  174.         last = p; 
  175.     strcpy(last+1, name); 
  176. } 
  177. #endif 
  178.  
  179. imeth long FindFile_im_gWriteTime(object self)
  180. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  181. #ifdef _WIN32 
  182.         if (!iv->iFirst || iv->iEnd) 
  183.         return -1L; 
  184.     return iv->iData.time_write; 
  185. #else 
  186.         char path[256]; 
  187. #ifdef MSC16 
  188.         struct _stat sb; 
  189. #else 
  190.         struct stat sb; 
  191. #endif 
  192.  
  193.         if (!iv->iFirst || iv->iEnd) 
  194.         return -1L; 
  195.     getpath(path, gStringValue(iv->iFileName), iv->iData.name); 
  196.     return _stat(path, &sb) ? -1L : sb.st_mtime; 
  197. #endif 
  198.     } 
  199.  
  200. imeth unsigned FindFile_im_gAttributes(object self)
  201. { FindFile_iv_t *iv = GetIVs(FindFile, self);
  202.     unsigned at = 0; 
  203.  
  204.     if (!iv->iFirst || iv->iEnd) 
  205.         return at; 
  206.     if (SET(iv->iData.attrib, _A_SUBDIR)) 
  207.         at |= FF_DIRECTORY; 
  208.     else 
  209.         at |= FF_FILE; 
  210.     if (SET(iv->iData.attrib, _A_RDONLY)) 
  211.         at |= FF_READONLY; 
  212.     else 
  213.         at |= FF_READWRITE; 
  214.     if (SET(iv->iData.attrib, _A_HIDDEN)) 
  215.         at |= FF_HIDDEN; 
  216.     if (SET(iv->iData.attrib, _A_SYSTEM)) 
  217.         at |= FF_SYSTEM; 
  218.     if (SET(iv->iData.attrib, _A_ARCH)) 
  219.         at |= FF_ARCHIVE_ONLY; 
  220.     return at; 
  221. } 
  222.  
  223.  
  224. #line 225 "findfile.c"
  225.  
  226. objrtn    FindFile_initialize(void)
  227. {
  228.     static  CRITICALSECTION  cs;
  229.     static  int volatile once = 0;
  230.  
  231.     ENTERCRITICALSECTION(_CI_CS_);
  232.     if (!once) {
  233.         INITIALIZECRITICALSECTION(cs);
  234.         once = 1;
  235.     }
  236.     LEAVECRITICALSECTION(_CI_CS_);
  237.  
  238.     ENTERCRITICALSECTION(cs);
  239.  
  240.     if (FindFile_c) {
  241.         LEAVECRITICALSECTION(cs);
  242.         return FindFile_c;
  243.     }
  244.     INHIBIT_THREADER;
  245.     FindFile_c = gNewClass(Class, "FindFile", sizeof(FindFile_iv_t), 0, END);
  246.     cMethodFor(FindFile, gNewFindFile, FindFile_cm_gNewFindFile);
  247.     iMethodFor(FindFile, gNextFile, FindFile_im_gNextFile);
  248.     iMethodFor(FindFile, gLength, FindFile_im_gLength);
  249.     iMethodFor(FindFile, gAttributes, FindFile_im_gAttributes);
  250.     iMethodFor(FindFile, gWriteTime, FindFile_im_gWriteTime);
  251.     iMethodFor(FindFile, gDispose, FindFile_im_gDispose);
  252.     iMethodFor(FindFile, gName, FindFile_im_gName);
  253.     iMethodFor(FindFile, gGCDispose, FindFile_im_gGCDispose);
  254.     iMethodFor(FindFile, gDeepDispose, FindFile_im_gDispose);
  255.  
  256.     ENABLE_THREADER;
  257.  
  258.     LEAVECRITICALSECTION(cs);
  259.  
  260.     return FindFile_c;
  261. }
  262.  
  263.  
  264.  
  265.